Option Explicit
Sub Q_Sample033()
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh As Shell32.Shell
    Dim myFldItem As Shell32.FolderItem
    Set mySh = CreateObject("Shell.Application")
    'wx]SƧ`ơ^
    For Each myFldItem In mySh.NameSpace(ssfCONTROLS).Items
        If myFldItem.Name = "" Then
            myFldItem.InvokeVerbEx
            Exit  For
        End If
        'On Error Resume Next
        'Debug.Print myFldItem.Name, myFldItem
        'On Error GoTo 0
    Next
    Set mySh = Nothing						'
End Sub
